home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 167 / 167.d81 / program 2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  170b  |  12 lines
  1. 0 rem -- program 2 --
  2. 10 fork=0to10
  3. 20 reada:c=c+a
  4. 30 poke16384+k,a:nextk
  5. 40 ifc<>839thenprint"data error":end
  6. 50 sys16384
  7. 16384 data 162,0
  8. 16386 data 189,0,4
  9. 16389 data 164,2
  10. 16391 data 153,64,5
  11. 16394 data 96
  12.